home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / source / graphgem / gems / makefile < prev    next >
Encoding:
Makefile  |  1992-08-27  |  2.8 KB  |  115 lines
  1.     WEND
  2.             MOUSEEXIT
  3.             VIDEOMODESET VMODE
  4.             END
  5.  
  6.  
  7.  
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.                                                                          86
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.           MOUSECURSORDEFAULT
  53.  
  54.             PROTOTYPE
  55.  
  56.             SUB MOUSECURSORDEFAULT ()
  57.  
  58.             INPUT
  59.  
  60.             no input parameters
  61.  
  62.             OUTPUT
  63.  
  64.             no value returned
  65.  
  66.             USAGE
  67.  
  68.             MOUSECURSORDEFAULT defines the mouse cursor to be a small
  69.        ,K$╖┼╘╤░XQ)σ┤ö≡÷┴─┤àñT┘,╘¬àñX9╘⌠àñ\9╘UÜ╢≤`9╘4a╘d9╘UTa╘h9╘ta╘l9╘Uöa╘p9╘┤a╘t┘PT±x┴îÇ╖0▓ïα│ÅαU┤ôα╡ùα╢¢α╖úΓ╘pǺΓ╕¡αë ╚┴πì°sKÉφb<$⌡▌ë     φë φë I1φë  Eφë $YφÆë (mφë ,üφë 0$òφë á⌐φë ñ╜φë I¿╤φë ¼σφë ░∙φÆë 4
  70. ²ë ┤!²ë ╕$5²ë ╝I²ë └]²ë ⌐8q²ë <àⁿΦiǬ∙PÖÇ ¥Ç
  71. ⁿ
  72. ░╨â@%8@ΓΦá╝╤░≡cÑÅ*$
  73. ░╕≡ż≡τ╥m¿⌡ε    ╨@#µ≈$âh$âαra╨à`¥è∩Ç%Ç +─▀ TîcOî∩â°1<@  [$¿Ç¼ MMl·0ƒ Y¼─!%6a▐è ¥ì ßá+?±  P<îaTTV ╪iÇ¡≥░ `_ñ»%Çá᪠P█º»ε`éa∙É%H«┴íA%Gár∙É
  74. iw∙Éiφ`╧≥≡╤Çmⁿ▒
  75. ]ÆAáσw7░⌡∩    $·╟Ç√É&^`  ┐ $ⁿ  $■ $╒ nk$J-ÉQ1£PéBù »0αQ/Ñ4╜£░ºP≈Ñ4Ç⌡$(ª▀$@C]Æé≈└╕_SÇçÑ4=iÉ⌠ä╣<_np@Ñ45ò▒Y3ü¼Qí░.i>╠@5+┴╙É╛╙$@ #┴@«╦
  76. $╤
  77. #@Ñú4,p&e÷ü¼_ÇQºÑ4
  78. òQ  ü@;¡_áQ@e╠≥@mp!┤a╘O░√`Pñź ÇT°8ÿ!¼Åñ$½╙"q¿ PñCÇ¿α√└╥░eT"ß<p°%Pæ(╧%pδ¥/OêW0Ǽbφ φ B@[â¼8â≥µ≤(    ¿⌡%(Ç∩áTÿp+ óÜ▓0!Σ±(1±
  79. ░┤ÖÇD└D0Å╡`   $ «îO@╧1
  80. a╝╤j-0ñ│`@╖bΦaT1═⌠╝╤Σ²¼±,1öíî9lÿ28ÇÅ`Γî¿P²$,N0┴O0a╫δ≤0σú`°î╖#0δ≡└X▄1»Σî(▒¥Ç█Ñ"qá√1CÇú╟╨º Å
  81. FT Θ²î└1ÇY0    w ²à░$@AÅ`╦Φ¼╘`▄1A  }┐Ç*5 ΩSδδî`¼îaδæ¼î5 1¿⌡Ω╜⌠ ¼¥╬ü└Qî1S
  82. ╛≤î9╨iÇ,∙PU(}Ç$üÇ àÇ`σìÇ`QαÜBO$%ÿÇ╧"$Ç«Ç]É.┬\`%WÉ$  W0 ÄâO0]αG┬ur╩
  83. ░£▒
  84. Q¢ú╔Ç≡°s?`X0╘`@ µWâ@╣aá εdq`¥9?Ç&+o0µyÄΣAÅuV(7P╬±@IdQ╕@Å┤@;Ç▓?Çò│CÇ┤╟╨╡KÇÄ30ⁿφ° ó╬ì+]Ä╦≡     Mö╝σ ²y5<!└▀óâ╝É3~mp    $<╛≤9Æ-2ⁿ≡@T,╞Σa,)Pæ└¥#¼╪Q┤S(¼@Aîa
  85. ≡╤@Ö²±⌠KëD─┴▒▀0╨Ñ$╩-0 ╨ê*╙▓edm`î=3Kß-10è=≥≤²└£mîjy ÿe²ⁿ╨i╕e▓ΣmαÖ╢C%Ç*ê*0 EátQZ`mÄLP%    °üⁿªüNQ∙  T¿<qtWΩc z░ÅÇñΩçǪçÇ«;└<┐á¼¥. á?<Σscî)áí := 0;
  86.       end;
  87.     end;
  88.   end;
  89.   WaitToGo;
  90. end; { UserLineStylePlay }
  91.  
  92.  
  93. procedure SayGoodbye;
  94. { Say goodbye and then exit the program }
  95. var
  96.   ViewInfo : ViewPortType;
  97. begin
  98.   MainWindow('');
  99.   GetViewSettings(ViewInfo);
  100.   SetTextStyle(TriplexFont, HorizDir, 4);
  101.   SetTextJustify(CenterText, CenterText);
  102.   with ViewInfo do
  103.     OutTextXY((x2-x1) div 2, (y2-y1) div 2, 'That''s all folks!');
  104.   StatusLine('Press any key to quit...');
  105.   repeat until KeyPressed;
  106. end; { SayGoodbye }
  107.  
  108.  
  109. PROCEDURE SelectMode;
  110. VAR
  111.     choice1,choice2     : CHAR;
  112.    xsize,ysize            : WORD;
  113. BEGIN
  114.     (* Let's select a mode *)
  115.     ClrScr;
  116.     WriteLn('VESADEMO:');
  117.     WriteLn('1. 256 colors');
  118.     WriteLn('2. 32768 colors');
  119.     WriteLn('3. 65536 colors');
  120.     WriteLn('4. 16777216 colors');
  121.     WriteLn('Q uit');
  122.     WriteLn;
  123.     Write('Your choice: ');
  124.     REPEAT
  125.